home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
dev
/
lang
/
pcq12b.lzh
/
Include
/
Exec
/
Nodes.i
< prev
next >
Wrap
Text File
|
1990-08-27
|
635b
|
33 lines
{
Nodes.i for PCQ Pascal
This file defines nodes, which are used throughout the Amiga
system software to link all sorts of things.
}
type
NodeType = (NTUnknown, NTTask, NTInterrupt, NTDevice, NTMsgPort,
NTMessage, NTFreeMsg, NTReplyMsg, NTResource, NTLibrary,
NTMemory, NTSoftInt, NTFont, NTProcess, NTSemaphore);
{ A normal node }
Node = record
ln_Succ : ^Node;
ln_Pred : ^Node;
ln_Type : NodeType;
ln_Pri : Byte;
ln_Name : String;
end;
NodePtr = ^Node;
{ A stripped node, with no type checking }
MinNode = Record
mln_Succ,
mln_Pred : ^MinNode;
end;
MinNodePtr = ^MinNode;